home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
DATATION
/
MAILCALL.LZH
/
DIALME.BAS
next >
Wrap
BASIC Source File
|
1988-10-16
|
2KB
|
54 lines
1 REM This BASIC program lets you experiment with different dialing configurations -
2 REM to see which will work best with Mail Call. Later, configure MC.
3 REM Modems need 1 - 3 'strings' to Initialize, Dial and Hang up. (Initialize
4 REM isn't needed on all modems). Experiment by changing these 3 strings ::
5 REM ModInit$, ModDial$, and ModHangUp$ (Find these on Lines 15-17)
6 REM << SEE LINES 35-45 ::: QuickBASIC or BASIC >>
7 REM You'll be asked: "Which Com port?" Answer 1, 2, 3 or 4. BE CAREFUL
8 REM You'll be asked: "Dial which Phone #?" Be sure to enter 7 digits.
9 REM
10 DEFINT A-Z: CLS : LOCATE 8, 1
11 REM
12 REM '........change the next 3 strings as needed
13 REM '... Hayes 2400 baud:: One person suggested ModInit$ begin with "ATH1"
14 REM
15 INITIALIZE$ = "ATE0 S7=60 S11=55 V1 X1 S0=0!" 'May NOT need INIT. Ventel modems works w/o init
16 DIAL$ = "ATDT"
17 HANGUP$ = "ATH0" 'Alternate "~~~+++~~~ATH0!"
18 REM
19 REM ........ now, where's your modem? what number should I dial?
20 REM
21 LINE INPUT ; "Is your modem at COM (Serial) port 1, 2, 3 or 4? "; P$
23 PRINT : PRINT
25 LINE INPUT ; "Dial what phone # (7 digits, try Your Own) "; PHONENUM$
26 REM
27 REM ........ open Com port, and initialize modem
30 CLOSE #1
35 REM
36 REM '......... Use:: Line 40 with QuickBASIC, Line 45 with BASIC
37 REM (For QuickBASIC, REMOVE '' on line 40, and PUT '' on 45)
40 ''OPEN "COM" + P$ + ":300,N,8,1" FOR RANDOM AS #1 LEN = 256 'quickBASIC
45 OPEN "COM" + P$ + ":300,N,8,1" FOR RANDOM AS #1 'BASIC
47 REM
48 REM
50 B$ = CHR$(13) + CHR$(13) + CHR$(13)
60 PRINT #1, B$ 'suggested by US Robotics (Mike): get modem @ 300 baud
70 PRINT #1, INITIALIZE$
75 REM
77 REM ........ dial the #
78 REM
80 PRINT #1, "ATDT" + PHONENUM$
83 REM
84 REM ........ wait for a key stroke before handing up
85 REM
86 BEEP: PRINT : PRINT "Press a key to hang up . . . ."
87 B$ = INPUT$(1)
88 REM
89 REM ........ hang up
90 REM
91 PRINT #1, HANGUP$ 'hang up
98 REM
99 REM
100 PRINT #1, "ATZ" 'suggested by US Robotics (Mike) return to orig. Baud